home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / GWU Demos / creature.ads < prev    next >
Encoding:
Text File  |  1994-01-09  |  382 b   |  21 lines  |  [TEXT/Anon]
  1. --
  2. -- Creatures is the package in which worms resides.
  3. -- Charles Kann, The George Washington university  
  4. --
  5.  
  6. PACKAGE Creatures IS
  7.  
  8.     TASK TYPE Worm IS 
  9.         ENTRY Init_Worm( Symbol : IN CHARACTER  );
  10.     END Worm;
  11.  
  12.     TYPE Coordinate IS
  13.         RECORD
  14.             x,y : Integer;
  15.         END RECORD;
  16.  
  17.     Maximum_xy : Coordinate;
  18.     Minimum_xy : Coordinate;
  19.  
  20. END Creatures;
  21.